RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


~ 
#*F ILE*® 1D **NDXDAT | 
} 
| 
| 
| 
NN NN DDDDDDDD _—xx XX DDDDDDDD AAAAAA so TTTTTTTTTT 
NN NN DDDDDDDD _XXx XX DDDDDDDD AAAAAA =o TTTTTTTTTT | 
NN NN DD DD Xx XX DD DD AA AA TT 
NN NN DD DD XX XX DD DD AA AA IT 
NNNN NN DD DD = XX XX. DD DD AA AA TT 
NNNN NN OD DD XX XX ~~ DD DD AA AA TT 
NN NN NN OD DD XX DD DD AA AA TT 
NN NN NN OD DD XX DD DD AA AA TT 
NN NNNN DD DD XX XX DD DD AAAAAAAAAA TT 
NN NNNN DD DD XX XX DD DD AAAAAAAAAA TT 
NN NN DD DD XX XX DD DD AA AA TT a 
NN NN DD DD Xx XX DD DD AA AA TT aoe 
NN NN DDDDDDDD _—XX XX DDDDDDDD AA AA TT tae 
NN NN DDDDDDDD _—XX XX DDDDDDDD AA AA TT ee 
LL Il 
I] 
LL I] Ss 
LL II 5S 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL II SSSSSS 
LL I] SS 
LL I] 5S 
LL I] SS 
LL I] SS 
LLLLLLLLLL  IJIIII © SSSSSSSS 
LLLLLLLLLL ©«dE'IIII.)«©=—SSSSSSSS 
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ZTITLE "NDXDAT = Index po l gate manipulation routines’ 
MODULE NDXDAT C1pENT 2 V96- 0' 
SOL ISS52 » ADDRESSING _MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 


folojlolo) 


pepe pe fefoielelelolelelelelololololololololololololo) 


MMMM S 2 2 3 3S SS OOOO OOOO 


—OOONAULS WIN $9 OONAOULSWN (OO OODNAUE WN OOONOU EWN 


BEGIN 


' 
POSSESS SISSI SEES TST TT TTT TTT TT reece rire irri citi i tii i iii iii titi iii iitiicit 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
* 
*® 
*® 
* 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
! & 
i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ix CORPORATION. * 
® 

*® 

® 

® 

® 

*® 


SOoOoOSooOSooOOSCOOSOSOOOOOOOOOoOSoSoOo 


NOME WIR OOD NOUE WN 0 OO NOAUNEWN HO OOO EWN (OO DNOUE WN OOONOUL WR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
; 
2 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ 05 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
0 '® 

; 09 Vee AREER ERATE EEE 

00 : 
3 003 
3 003 '++ 
3 003 i FACILITY: uty 
; i : DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 
3 003 i ABSTRACT: 
3 oes This module contains routines used to manipulate the binary index pool 
i st ENVIRONMENT: Transportable 
4 004 i AUTHOR: JPK 
4 004 : | 
: ORe7 CREATION DATE: February 1982 
4 045 ' MODIFIED BY: 
4 0046 ‘ 
4 0047 : 006 JPKO00015 04-Feb-1983 : | 
4 0048 : Cleaned up module names, modified revision history to 
4 4 : conform with established standards. Updated copyright dates. | 
; 0051 : 005 JPK00012 24-Jan-1983 

0036 ' Modified NDXVMSMSG.MSG to define error messages for both 
5 005 : DSRINDEX and INDEX. 
: 054 ! Added require of NDXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 

055 1! INDEX, NDXMSG, NDXXTN, NOXTMS, NOXVMS and NDXPAG for BLISS32. 

5 026 : Since this file defines the error message literals, 
5 05 : the EXTERNAL REFERENCES for the error message literals 


Se ee Se Se Se Se Se Se Se Se Se Se Se See Se ee ee te Seteas 
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24 


a ee a dd ad ts st et 4 


004 


003 


002 


14-Sep-1984 
have been removed. 


JPK00010 24-Jan-1983 

Removed routines GETDAT and UPDDAT from NDXDAT = they 
performed no useful function. Removed references to these 
routines from NDXOUT, NDXFMT, and NDXMSG. 

Removed reference to XPOOL in NDXOUT = not used. 


JPKO00009 24-Jan-1983 

Modified to oy pacrereeeer: The sort buckets have each 
been divided into 27 sub-buckets; for each Letter and 1 
for nerecpnes, Removed reference to BUCKET from INDEX 
Definition of the structure was added to NDXPOL. References 
to BUCKET were changed in modules NDXOUT, NDXINI, NDXFMT 

an 


JPK00004 24-Sep-1982 
Sed Uh NDXOUT NDXM G, NDXFMT, and NDXDAT for TOPS-20. 
Stri ngs stored in the index pool use the first fullword 
for their length. References to these strings were incorrect. 


AX-11 Bliss-32 V4.0-7 
RUNOFF ..SRCIJNDXDAT. BL: 
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NDXDAT NDXDAT = Index pool data manipulation routines 16-Sep-1984 AX-11 Bliss-32 V4.0-7 Page 
v04-000 , , 14- att fi 99: ie § RUNOF Fe SRCINDXDAT. Bie ° 2s 
3 1 080 1! 

3 ¢ ° 1 ; TABLE OF CONTENTS: 

; 4 j 1 FORWARD BOUT Ine 

3 5 8 aT. XIN wt : NOVALUE, ! Initialize jndex pool 

3 § 5 1 Tv. ' Store data in po 0 

3 0 § 1 XMEM : NOVALUE, ' Verify availability of pool space 

: 8 4 1 GENTRY; ! Get index entry from pool 

3 9 8 1 

; 0089 1! 

ee | 090 1 ! INCLUDE FILES: 

eS 091 1! 

: 9 O36 1 LIBRARY ‘NXPORT:XPORT'; 

; «294 0093 (1 

s; 95 0094 1 SWITCHES LIST (REQUIRE); 

5s & 0095 1 

: 97 0096 i REQUIRE ‘REQ:NDXPOL'; 


NDXDAT 
Vv04-000 


RO100 


RO 


DDDDDDDDDD 
jojo jw lololelelololololololo) 
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: . 1e8een18Rs 298s ieee ees TR ete ce CSuoxpon.reas1 2% «14 


Version: *v04-000' 


LRA AREER REE EERE RARER ERE EEE EEE EATER EEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 

® 

® 

® 

® 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. , 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

i CORPORATION. . 
® 

® 

an 

* 

® 

* 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'® 
LRA RRR ERERE 
' 


'e¢ 
! FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


ABSTRACT: 
This file contains literals and macros defining the data structures 
found in the internal index poo 


ENVIRONMENT: Transportable 


AUTHOR: JPK 
CREATION DATE: January 1982 
MODIFIED BY: 
003 JPK00015 04-Feb-1983 


Cleaned up module names, modified revision aistery to 
conform with *stablished standards. Updated copyright dates. 


| 
002 JPK00009 24-Jan-1983 | 
Modified to enhance performance. The sort buckets have each 
been divided into 27 sub-buckets; 1 for each letter and 1 
for non-alphas. Removed reference to BUCKET from INDEX. | 
Definition of the structure was added to NDXPOL. References 
to BUCKET were changed in modules NDXOUT, NDXINI, NDXFMT 
and NDXDAT. 


J 13 
NDXDAT NDXDAT = Index pool data manipulation routines 16-Sep-1984 00:57:32 VAX-11 Bliss-32 V4.0-74 Page 5 
v04=000 1o3epn 1 g8e 388s tg ee ess tReubre secINxPoL rea; to” «13 
; RO1S4 1 ' Ind t 
: ROI 5 ; noex entry 
; =6ROI § 1 SFIELD XE_FIELDS = 
; ROI 1 SET 
: ROI88 | KESA_PREV SADDRESS ' Link fous 
; £ = ‘ ' Link to previous item 
: ROO 1 XESA_NEXT = CSADDRESSJ, ' Link to next item 
; RO161 1 XESA_SUBX = LSADDRESS), ! Sub index pointer 
3 sth 1 XESA_REF = [SADDRESS), ! Reference pointer 
; RO16S 1 XESA_TEXT = [SADDRESS), ! Pointer to text of index item 
; RO164 1 XESA_SORT_AS = [SADDRESS ! Pointer to SORT_AS string 
: RO165 XESH~SUBC = CSSHORT_INTEGER], i Sub index Level 
: RO167 XESV_FLAGS = CS$SHORT_INTEGER], ! Entry flags 
: ROW69 1 SOVERLAY (XESV_FLAGS) 
; kO170 1 
: te ' XESV_BARS = ($81TI, ! Change bar flag 
: ROW73 1 SCONTINUE 
; kRO174 1 
; tte : XESA_BOOK_LIST = CSADDRESS] ! Master index book name List 
: ROW? 1 SALIGN (FULLWORD) 
; kO178 1 
; kRO179 1 TES; 
; kO18O 1 
3; kROWB1 1 LITERAL 
: side } XESK_LENGTH = SFIELD_SET_SIZE; 
: ROWS 1 MACRO 
: itt ' $XE_BLOCK = BLOCK CXESK_LENGTH] FIELO (XE_FIELDS) 2%; 
: ROW? 1 ! End of Index entry 
; kO188 1 
; ROWS 1 
; kO190 1 ! Reference entry 
; kRO191 #1 
3; kO192 #1 SFIELD XX_FIELDS = 
; RO19S 1 SET 
3 RO194 i 
; RO19S 1 XXSA_LINK = [SADDRESS), ' Link to additional entries 
3 RO196 1 XXSA_APPEND = [SADDRESS) ! APPEND text pointer 
3 RO t8S : XX$H_PAGE = SSHORT_INTEGERI, ! Transaction number 
: ROI99 | XX$V_FLAGS = CSSHORT_INTEGER], ! Display attributes | 
: RO 01 SOVERLAY (XX$V_FLAGS) | 
: RO 08 1 XX$V_BOLD = ($B1T), ' Bold page reference 
3 Aisi) 1 XXSV_UNDERLINE = ($BITJ, ! Underline page reference 
: RO205 1 XX$V_BEGIN = ($B1T), : pega page range 
5 R030 ' ND = ($B1TJ, ! End page range | 
: no 08 $CONT INUE 
: ROS10 1 XX$A_BOOK = [SADDRESS) ! Master index book name | 


K 13 
NDXDAT NDXDAT = Index pool data manipulation routines 16-Sep-1984 00:57: VAX-11 Bliss-32 V4.0-74 Page 
¥04=000 . : 18-88b-198e 99:85:36  “S¥sdSnOABSCRONGEE SRCINDXPOL REQ; 1°29 
; RO211 1 
: RO \¢ 1 SALIGN (FULLWORD) 
; Re 1 oe 
; RO214 1 TES; 
; RO21S 1 
; RO 1 1 LITERAL 
3 RO217 1 XXSK_LENGTH = SFIELD_SET_SIZE; 
; RO218 1 
; kRO219 1 ACRO 
: ~ $0 1 $XX_BLOCK = BLOCK CXXS$K_LENGTH] FIELD (XX_FIELDS) %; 
; =kRO ¢ 1 ! End of Reference entry 
; RO 1 
>; RO224 1 
3 ~ $2 : ! Master index book reference entry 
3 RO227 1 SFIELD XM_FIELDS = 
; ~ $ : SET 
; kO230 1 XMSA_LINK = CSADDRESS]), ! Link to additional entries 
3 R08 ! XM$A_BOOK = CSADDRESS) ! Pointer to book name 
3; RO a 1 TES; 
: Rese 1 
; kRO235 1 LITERAL 
>; RO236 1 XMSK_LENGTH = SFIELD_SET_SIZE; 
; RO237 1 
; site: 1 MACRO 
: Roe ze : $XM_BLOCK = BLOCK CXMSK_LENGTH] FIELD (XM_FIELDS) %; 
3 Rosa} 1 ! End of Master index book reference entry 
; Roses 1 
; RO24S 1 
> RO24Q 1 ! Current Entry 
3; RO245 1 
> RO246 1 SFIELD C_FIELDS = 
3; RO24 1 SET 
> RO248 1 
3 RO249 1 CSA_CURR = CSADDRESS], ! Pointer to current cell 
: RO250 1 CSA_PREV = CSADDRESS), ! Pointer to previous cell 
3 Roses : CS$A_HEAD = CSADDRESSJ, ! Pointer to head of chain 
H HS 3 ! SALIGN (FULLWORD) 
: RO ry 1 C$V_FLAGS = (SINTEGERI, ' Current cell flags 
5 ~ 37 : SOVERLAY (C$V_FLAGS) 
; R0¢39 | C$V_IDNS = ($81T) ! Identical string flag 
; RO261 1 SCONTINUE 
: RO o¢ 1 
3: RO265 1 TES; 
3 Re 64 «1 
; RO265 1 LITERAL 
3; =RO 66 1 CSK_LENGTH = SFIELD_SET_SIZE; 
; RO267 1 
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‘i . Eat R Re Oo ee se Bee Beer ae Me OSes woxpoL reo: 12% 


; RO268 1 MACRO 
; Re 4 : $C_BLOCK = BLOCK CCSK_LENGTH] FIELD (C_FIELDS) %; 
s Woers 7 
; RO if 1 
; RO275 1 
; RO274 1 ! 
3; R0ers 1 ' Dummy datasets 
; RO276 1 : 
; RO277 1 LITERA 
; RO278 1 DS_X_ ENTRY = XESK_LENGTH, 
; RO279 1 “XR_ENTRY = XXS$K~LENGTH, 
; RO0280 1 DS-XM-ENTRY = XMSK"LENGTH, 
; RO281 1 DS-X_STRING = 0; 
; «RO Hf 1 
; RO28S 1 : ; 
$ a He : Structure definition for bucket array. 
; RO286 1 ! Buckets are arranged so that each row represents the first letter of 
; Att ’ the string and each column represents the second letter of the string. 
3; RO289 1 ! This approach is used only for master indexes as no performance 
; Ait344 ! improvement is realised until about 10 input files have been processed. 
; RO292 1 ! Indexes which are not_master indexes use only the first element of 
; 95 : } each row, i.e., CO, 0] ... (26, 0). 
>; RO295 1 ! The only gncggt ton is for nonalphabetic characters which use only | 
3 RO296 1 : element (CO, OJ. Elements C0, 1]... C0, 26] are not used since mapping 
; RO297 1 ‘ all nonalphabetics into one row loses the sort order of the first 
; kO298 1 : character in the string. For nonalphabetics to work correctly in a two 
3 S945 ’ dimensional bucket scheme, the array would have to be at least 127 x 127 
; kRO301 1 ! SS ee” eae we 
3; kRO302 1 ! OQ ** mot used ... 

; R030 1 : 1 A? AA AZ 

3; RO3O4 1 ‘ ° : 

; RO305 1 ‘ . . 

3 RO306 1 ! . ‘ 

3; kRO3O7 1 : ae ea ae 

>; kRO308 1 : 

3; RO309 1 STRUCTURE 

; kRO310 1 SBUCKET_ARRAY CROW_IDX, COL_IDX; M, N] = 

: ROs11 CM = N * XUPVAC) ($BUCKET_ARRAY + (ROW_IDX * N + COL_IDX) * XUPVAL); 

; Rost 8 1 leo End of NDXPOL.REQ 


! End of current entry 


zZ> 


(2) 


Page 


Subst oust 


hed 
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NDXDAT 
v04-000 


*See ere *S ee rerese *esee *S*See rarer SOS Oe FS Oe FS OS OS FS OS OG OG FS OS FS EG FS FEES HS ESE FS HSS *S CSCS “SCS *S*S HSCS *S SS *S SSS *S HESS 


ZBLISS (BLISS32) 


REQUIRE "REQ:NDXVMSREQ'; 
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NDXDAT NDXDAT = Index pool data manipulation routines 16-Sep-1984 00:57: AX-11 Bliss-32 V4.0-74 Page 9 
v04-000 18-808- 1382 90335538 RUNOFF. SRC INDXVMSREG_R 2;1 . (1) 
>; RO3BI19 1 ' 
3 Re 9 : Version: *v04-000' 
: Re § : leeeeeeeneerententenetentnnetnenteeteetrentertrertrtenertetteennetneerenteete 
8 if ® 
; RO324 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: RO32S 1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « 
3 Re 8 | 4 ALL RIGHTS RESERVED. * 
Py 4 ® 
; RO328 1 :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 kRO329 1 :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 Re 0 1 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; RO331 1 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: ART, 1 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY « 
3 Rear : :* TRANSFERRED. * 
M4 't * 
; kRO335 1 't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; RO336 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: RO eee : & CORPORATION. * 
° H * 
; RO339 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: sit re : * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
° : * 
: RO342 1 '® * 
4 ater : iehabahaishahaielabelebalebalelebeiebelebelebebehebebbebbibiebibibhihibbbbbbibhbh hhh hh hbtibbiiiiiitii 
; RO 
; RO345 1 
3 RO346 1 '++ 
; RO347 1 ! FACILITY: 
2 stot : DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 
: RO350 1 i ABSTRACT: 
3 RO351 1 ' This file contains external references to the error message numbers 
; RRS ; for DSRINDEX/INDEX. 
: RO354 1 i New messages must be defined in NDXVMSMSG.MSG and referenced here: 
; kRO355 1 ! both in the MACRO section (for DSRINDEX) and the EXTERNAL LITERAL 
3 Roaes : section (for INDEX) 
> RO358 1 i ENVIRONMENT: VAX/VMS User Mode 
3 sit 4 1 ! 
; RO360 1 ' AUTHOR: JPK 
; RO361 1 ! 
3 RO 36s ' } CREATION DATE: 01-Feb-1983 
: ROS64 1 i MODIFIED BY: 
; RO365 1 ! 
3; RO366 1 ! 004 JPK00022 30-Mar-1983 
3; RO367 1 ‘ Modified NDXVMS, NDXFMT, NDXPAG, NDXVMSMSG and NDXVMSREQ 
; Hts: ! to generate TEX output. Added module NDXTEX. 
; RO390 1 i 003 JPK00021 28-Mar-1983 
3 kRO371 1 ! Modified NDXT20 to include E2.0 functionality. 
3; RO 1 1 : Modified NDXCLIDMP, NDXFMT, NOXPAG, NDXVRS to require RNODEF 
3 kRO3735 1 : or BLISS36 and to remove any conditional require based on 
: Rate ' DSRPLUS_DEF. 


NDXDAT = Index pool data manipulation routines Igeke -1 AX-11 Bliss-32 v4.0 
. ty 7 99: 33: 3 RUNOFF .SRC NOXVMSREG. " 2;1 xed a? 


sz 


002 JPK00010 04-Feb-1983 
Cleaned up module names, modified revision paesery to 
conform with established standards. Updated copyright dates. 


REQUIRE "REQ:RNODEF'; 
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-Sep-1984 
1 
| Version: *v04-000' 


SRR RRR A AEE RARER RAAT AA RARER ATA 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 
® 
® 
® 
' * 
Hd ae SOF TWARE 4 gt UNDER A LICENSE AND MAY BE USED AND og IED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
4 ® 
: D OTHER E LABL * 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY * 
!® TRANSFERRED. ® 

® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
't CORPORATION. + 
. ® 
!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

® 

® 

* 


VR R ERRATA EEA 
i] 


lee 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


| ABSTRACT 
Converts BLISS/VARIANT values into useful names. 


i ENVIRONMENT: Transportable BLISS 


} AUTHOR: Rich Friday 
CREATION DATE: 1978 
! MODIFIED BY: 
016 KAD00016 Marshall ren 
Added GERMAN, FRENCH & ITALIAN 
015 KAD00015 Keith Dawson 18-Apr-1983 


Made the LNO1 conditional the detauit for vanilla DSR -- 
ts value is 0 (no variant supplied). 


014 KAD00014 Keith Dawson 22-Mar-1983 

Asserted the LNO1 conditional when DSRPLUS is asserted. 
013 KAD00013 Keith Dawson 20-Mar-1983 

Removed all references to .BIX and .BIC files. 
012 KAD00012 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed fk. re files to BLISS library. 


Pa 
: CRUNOFF she RNODEF .REQ; 1 


s3 
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NDXDAT NDXDAT = Index pool data manipulation routines 16-Sep-1984 00:57: VAX-11 Bliss-32 V 1 
v04=000 . F 1928eei13be 99:8c:08 — “SSsbsnBAdeStRaNOeE sRCSRNoper.reas1 2% c} 


This variable (FLIP) controls compilation | of FLIP features of DSRPLUS. 
It assures that FLIP features are compiled only on VMS systems. 


Modules utilizing FLIP are many and various. 
COMPILETIME 
flip = 


; ROG4O 1 ' 

; ROGG1 1 !e< 

; ROGG2 1 

: Rocae i i** DEFINITION OF /VARIANT BITS 

: : V 

° RO4G4S 1 : | 
; ROGGE 1 : The bit assignments are as follows: 

3 ROG47 1 ! | 
; ROGG8 1 : Bit Weight Meaning 

° RO449 1 ' ot eee et ee Se ee ee ee me eS ee ee eee SD ee ee Sem ee wn Ee wwe em EDR eT De eR EO eee eS eS 

; kRO4SO 1 ! -- 0 If a> Agen iy fl {3 supplied (as for veniile DSR), 

: Reed 1 ‘ — pile wit gu peers LNO1 support is also 

: Rees ; } mp lied by the” BSR LUS variant. 

; ROGS4 1 ! 0 1 CLEAR = Unassigned 

; ROGSS 1 : SET Unassigned 

3; ROGS6 1 ! 

3 ROGS7 1 ! 1 2 CLEAR = Normal compile 

3 Ree ! } SET = Compile for DSRPLUS 

; ROG6O0 1 : 4-6 16 CLEAR = English (American) version 

3; RO4G61 1 ! SET = 6 = German (Austrian) 

3 ace 1 ! = French 

3; ROG6S 1 ! 48 = Italian 

3: ROG64 1 !e= 

; RO465 1 

Py RO04G66 1 ' aaonnars cee te Be Be Bw ODT BROOME mDBDOEwroerwmrEemr ee en ae ew wenn en enw ween w ea een ewe en ew ew ewe wee ee we eee ee em eo 

3 ROG67 1 ! This variable (LNO1) controls whether or not to compile an LNO1-flavored 

: Sine: : DSR. It is asserted by default, and also whenever DSRPLUS is asserted. 

; kRO470 1 ! Modules utilizing LNO1 are: 

3 ROG71 1 ! 

: RO472 1 ! DOOPTS NOUT 

; ROG75 1 

3; ROG74 1 COMPILETIME 

; ROG75 1 = 

; ROG76 2 ( (ZVARIANT EQL 0) OR %VARIANT/2 ) 

; RO477 1 : 

: kROG78 1 

: RO479 1 ' eeeeeeeeeeeeoeoooeseesoeeeeseseeeeeeseeseeeeeeeseeeeeseeeeceececceeceecoescos 

3 Sots} : This variable (DSRPLUS) controls compilation for the DSRPLUS program. 

: st 1 ! ALL modules utilize DSRPLUS. | 
3 ROG 1 
3 «ROG 1 COMPILETIME | 
; ROG8S 1 dsrplus = 
3 RO4GB86 2 ( ZVARIANT/2 ) 

3; ROG87 1 3 

3 «60ROG 1 

$ ROGBI \ 1 eo ee werent rocne wn ez ewe scwreece2reewrneun anne eerenwezeewwneemrwr este eeawrm=mrea ee eee ean craw ene en wan = = 

; 1 
s 1 

3 1 | 
3 1 
3 1 

: 1 
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( ZVARIANT/2 AND XBLISS(BLISS32) ) 
' O66 0066 OSS SSS SS OOS OSS SSS SSS SOS SOS SSS SESS S SSE ESSSeeseeseseseesoeses 
4-6 16 tes = glish (American) version 
i 


: RO497 : 

; ROG98 

3 ROGSD 1 

; kROSOO 1 

; kOSO1 1 CL Englis 

; kOSO2 1 SE = 16 = German (Austrian) 

3; ROSOS 1 ! if = Frenc 

; ROSOS 1 ' 48 = Italian 

3; kROSOS 1 COMPILETIME 

; kROSO6 1 German = ( ZVARIANT/16 AND NOT %VARIANT/32 AND NOT ZVARIANT/64 ) ; 
; kROSO7? 1 COMPILETIME 

; kOSO8 1 French = ( NOT Z%VARIANT/16 AND X%VARIANT/32 AND NOT XVARIANT/64 ) ; 
; kROSO9 1 COMPILETIME 

3 noaiy : Italian = ( ZVARIANT/16 AND %VARIANT/32 AND NOT %VARIANT/64 ) ; 

: kROS12 1 ! End of RNODEF.REQ 


RO549 


DDD DD 
SOQSOCOoCoCOSoo 


DD 
oooo 


ee me ce me ee ee a ed od dd od od = = dd 3 3 3 


NDXDAT = Index pool data manipulation routines 1b-ep-1984 00:30:38 


%1F NOT DSRPLUS 
THEN 


MACRO 
INDEX$_BADLOGIC 
EX$-BADVALUE 
INDEX$~INSVIRMEM 
INDEX$~LINELENG 
INDEX$~NOREF 


TOOMAN 
VALERR 
atiocr 
C 
C 


OT 


LOSEQU 
INF QUAL 


X$~ IDENT 
INDEX$~PROCF ILE 
INDEXS~TEXT 
INDEX$~TEXTD 
INDEX$S~TMS11 


aFI 

EXTERNAL LITERAL 
INDEX$_BADLOGIC, 
INDE X$~BADVALUE , 
INDEX$—INSVIR 
INDEX$—LINELENG, 
INDEX$_NOREF , 
INDEX$~OPENIN 
INDE X$~OPENOUT , 
INDEX$-T 
INDEX$S~VALERR, 
INDEX$~CANTBAL, 


4-44-1444 4-4-4 4-44-4444 4-4-4 4-4-4 4-4-4444 4-4-4444 4A 


X$~TOOF EW 


~ COMPLETE 
DEX$_CREATED 


X$~ IDENT 
DEX$~PROCF ILE 
$"TEXT 


DEXS$~TEXTD 
DEX$~TMS11 


\-4-4-4-4-4-4242444 44144 hhh hh AS 
pep eg yey pte teg mete ney hep ae te ny hey neg seg tng ery a arg teat Heng bg Meg Ae ny Sen 


=< 
wn 
~ 
» 
¢. 
z2zno 
aomm 
> 
~ 
m 
iL] 


222288885883 SSSS2SS2SE2e 
mmm 
ae 


PR HL VL DL HL VL HL VL VL VL FL FL VL HL VL FL DL VL VL HL VL VL VL VL VL VL HL VL VL VL VL FL VL VL FL VL IL IL 
eee ee eseseseeseseeseseseseseseeseseeseeseseeeseeseeseseseesee ees 


! <internal logic error detected> 
*!tAS‘ is an invalid keyword value> 


i <insufficient virtual meer 
! <maximum Line length is 120 


' <error opening ‘!AS' for input> 


' <error opening ‘'!AS' for output> 


' <too many values 
; <specified value 


' 
' 
t 
' 
<page reference not found> 
1 
1 
! 
' 


is” 


plied> 
out of legal range> 


! <can't balance last page> 
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RUNOFF .SRC JNDXVMSREQ.R52;1 ( 
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» 
jelelelelelelelolelolololalolelolo! 
coop0D ye ert PROP NB | 


at at at a at a es os = 2 2 2 8 2 SS 


RK, 


Seno Come? Qemat hae Bae Geet Ret ened erat Pea) Pont Peas femad Gat fend P< bo Bent Bs Be 


X$~TOOFE 
INDEX$ =TROnEATED, 
INDEX$~ COMPLETE, 
INDEXS— =GREATED, 
INDEX$_ IDENT 
INDENS “PROCFILE, 


x 
os 
mm 
x 
~ 


INDEXS_TM 
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-Sep-1984 


! <missing Giese quo i? 

| Scena ire qualifiers> 

<1? he fol ey ng l ine contains ne characters - suereee 
'AD' w fit at the current indentation level> 

berms RPL US (BEGIN) - inserted as .XPLUS ()> 

i Soret y jnout file "!AS'> 


' nored> 
i Sinvalid input file forma in, file "!AS'> 


j Siavette record type in file ‘"!AS'> 
<can't gPeperete continuation heading on last page> 
<.XPLUS (END) ytss no .XPLUS (BEGIN) = ins erted” os -XPLUS ()> 
<, oP US CGrGiN nee no corresponding “XPLUS (END) 
<no index ntormett on bs fil 
| <paraneter List not allowed> 
<the following bine contains an overstrike sequence> 
<!UL reference! 2S inside page range - ignored> 
<error parsing ‘ 
<error prosaet tas Line 'UL of TEX character file "!AS'> 
i <maximum subindex depth exceeded> 
<not enough values supplied> 
i <string too long = truncated> 
i Seceeeserne complete '!AS'> 
'AS' created> 
i CINDEX version !AD> 
| Srrpeees ne file '!AS'> 


! <entry text: ‘!AD'> 
! <output file full = continuing with file "!AS'> 


AX-11 Bliss-32 V4.0-7 
RUNOFF .SRCJNDXVMSREQ. ; 2;1 


Ne 
+s 
| ee] 
i! 
ow 

* « 
we 
><a 

a 
wx 
Ma 
‘2 
wo 
nv 
co 
_—) 
@m-« 

ve 
Cel 
-oO 
‘2a 
=xD> 
<a 
> 


NDXDAT = Index pool data manipulation routines 
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=x « <x «aa w = zaacaxuvN2ZmM z2a.a 
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<< 
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8 Oo IO ee tee BLL IIE. SO E~ SE 


ee ee ee ee ee ee ee ee ee ee ee ce ae ee ee ee ed ed ed od ed 
“ 


Be Se Be Be Se Oe Se Be Be Se Se Be Se Se Se Se Gs Se Ge SH Ts SH Se Ss Se SF Ge Ge Be Se Se Ss SF Os Be Ss Se SESH SESE SESE SH SESH Se 8 Se SEs Se Sees SF Ss es 


SSLESEANLESELE 


WN — ODDNOUE WN O OONAUES WN HO ODNAUES WN OOONOULW 3 


PAAAAAAAAAASOASAOSSAISOSASA —-O 


SOOOOOCOOCOOOCOOOCOOCOOOSOSOSO xz 
PUPPIES BS EE EE 
CONAN CO OONOUS WO 


T = Index pool data manipulatior. routines 1 90:37:38 
-- Initialize index processor 14-Sep-1984 15:07:1 RUNOFF ..SRCJNDXDAT.BLI 


boo -19 4 


ZSBTTL 'XINIT == Initialize index processor’ 
GLOBAL ROUTINE XINIT : NOVALUE = 


44 


i FUNCTIONAL DESCRIPTION: 
Initialize the index processor. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NDXSGE - marker at end of work storage 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
One null entry is placed in each bucket. 


BEGIN 
LOCAL 
TEMP_BUF : S$XE_BLOCK; 
GPOOL (NDXPOL, 1000); ! Generate a pool with space for 1000 segments. 
mth $24 = 0: Pool is empty, but allocated. 
= Py . eee 


i 
} Fill in constant parts of bucket entry 


_ 
m 
=z 
wv 
t 
o 
Cc 
nm 
m 
AP 
=> 
5 
nnuonn 
oO: 
. 


TEMP’ BUF CXESA REF *% 
! 
Now place one entry in each bucket 


iNCR I FROM 0 TO 26 D 
INCR J FROM 0 TO 26 DO 


AX-11 Bliss-32 V4.0-7 


4 Page 17 
$ . (3) 


®1 


NDXDAT 


v04-000 

: 200 
01 

; 202 


—> 

os 
4 

[ia 


nitialize index 


END; 


processor 


ndex pool data manipulation routines 


BUCKET C.I1, .J] = SAVDAT (TEMP_BUF, 
!End of XINIT 


Be 98:07:18 


DS_X_ENTRY, XESK_LENGTH); 


- TITLE 
- IDENT 


AX-11 Bliss-32 V4.0- — Page 1 
RUNOFF .SRCJNDXDAT.BLI;1 (3 


NDXDAT oy oa - Index pool data manipulation ro 
n 
\V04=000\ 


RINDEX$_ Baboaroe 
NDEX$— ot Lee 


=LINELEN NG 


A 
m 
<< 


~SPENBUT 


ZZ2C SS mesccccsseczr So 


UT 


heer renreorrerren > 
< 
» 
m 
ov 
oO 
ro] 
J 


oo 
mou 
“ 
o 
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22a 
= 


a 
BE SRER SEE EEE 
oO <2emrn 
no” 


2ERRsSZAS 
o 
tf Ommn- > 
m 
v 


DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
bS 
DS 
DS 
DS 
DS 
DS 


2S DE OK OK DK OK DOK OK DK DK DK DK DK OK DK DK DK DK DK DK DK DK OK OK OK OK OK OK OK OK OK OK OK OK 


“teeter Tenrern ny 


LE 
DSRINDEXS. TEXTD 


» NDXSGE 
» LSTPTR 
; ENTMSG 


RIND 
RI 
RI 
RI 
RI 
RI 
RI 
RI 
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RI 
RI 
RI 
RI 
RI 
RI 
RI 
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RI 
RI 
RI 
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RI 
XL 


N22 2222S 2222S 2222222222 2222 222222222222 
sooo VST ToT VFT°o°cTcT°o°c°°0°c0Cc0°°0C°0"°0"0°00°000"0"00"000°09°9 
© MMMM MMMMMMMMMMMMMMMMmMmMmMmMmMmMmMmmmmmrmern 


MA a 
NDXSGF, 
INDL VL; L LST 
GPOOL, XPOO 
SCODES,NOWRT,2 

Byte Save R2,R3,R4,R5 


F660." -(SP) 


rnxK VsEMD OD 
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2 eg 
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0640 
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v04-000 XINIT == Initialize index processor ‘ 127808-13be 00:35:98 RUNOFF SR NBADAT BL te’ ee Ri 
000000006 EF 02 FB 0001 CALLS #2, GPOOL : 
000000006 EF D4 819 CLRL NDXSGE + 067 
ae a ae ie 
18 AE 1 00 06 £6 90 INSV Hie mo #17, TEMP_BUF +26 : $686 
08 AE 7C 00008 CLROQ Teme 8 BUF +8 + 0684 
OO EE aaaey fink fennel : 
55 52 18 C5 000 3 1$: NULLS rT, 1, RS + 0695 
53 55 54 ct 308 9 2$: ADDL J RS, R3 : 
08 DD § F PUSHL us ; 
08 ag SF 00041 PUSHAB pal BUF é 
00000000V_ EF : FB 00044 CALLS #3, SAVDAT : 
E2 ne oe + r3 ite NOBLE B96 es : 
D8 52 1A F3 00057 AOBLEQ #26. I. 1$ : 
04 00058 T ; 


0694 
0697 
; Routine Size: 92 bytes, Routine Base: S$CODE$ + 0000 
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v04-000 SAVDAT == Place data in working storage 14-Sep-1984 
4 ZSBTTL 'SAVDAT == Place data in working storage’ 
GLOBAL ROUTINE SAVDAT (ADR, DATASET, SIZE) = 


144 
' FUNCTIONAL DESCRIPTION: 
Place data item into work space. 
Note that in this version all indexing information is 
saved in core. This routine could be replaced with 
an interface to a work-file system on -1ls. 
FORMAL PARAMETERS: 
ADR - Address of data to be saved (CHSPTR if DATASET is DS_X_STRING) 
DATASET = Name of dataset where data will be stored 
SIZE - Number of characters (used only by DS_X_STRING) 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Work space ADDRESS of data is returned. 
SIDE EFFECTS: 
Work space pointers are updated 


oO 
oO 
co 


o 
“Oo 


BEGIN 


MAP 
ADR : REF VECTOR; 


OOONAVE WN (OO ONAUES WN —$ O OONAOUEWWN (COC ODNAOULS WN O00 


LOCAL 
WSADDR : REF VECTOR; 


? 
! Handle strings differently from fixed Length data 


IF .DATASET NEQ DS_X_STRING 
BEGIN 
Fixed Length data 
: Make sure there's sufficient dynamic memory to accommodate this entry 
XMEM (.DATASET); 


AUS WN =O OONOAUE WN 0 OONAOUES WN “OO ONAOUSWN —OOONOULWH—OOM 
PPP EEE EE PWN MAI AAIDIPOPNPINPININININID) 2 4 OS SS SM OQOOODOOOCOCOCOC YO 


IAI ES BS SB BB BWANA NAAN) OOOO 
ANNAN SSSI SSSI SSIS SSISITIO® 


SGOOSOSOOSOOOCOCOSCOSOSOSOGSOVOOOOSOSOCSCOOOSOSOSOOCSCOOCOOOCOCOCOCOOOOOOCOOOCOOOOOOCOoO 
WANN ANIIIPOPONINOPOPONNNNDY 9 9 es 


RIPDPPIPIPINIPDNDNDNINPINNINYININININININIPINIPININININININONINIPY NI NINN POPU NoPoNoMoNononyongnynyd 
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v04-000 


67 
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SAVDAT == Place data in working storage 12286871382 99:35: 


pofofofofolololelelelolto) 
PAPAS MMIII 
NOUS AN OOONOu 


AANA AAA NANI AWW WAAAAAA AA AIA AIAN AWWW ANI WAWANIWNNNNAANNA WWI 


Ce ee ew ee eee ee ee i ww www lo lololololololelelelelolololololo) 
oO 


' 
} Point to where data will be placed (at end of current segment). 
WSADDR = .NDXSGE; 

' 

} Advance over allocated storage 


NDXSGE ® -NDXSGE + .DATASET * ZUPVAL; ! Point to next free memory in segment 


NDXSGF eNDXSGF = .DATASET; ! Count off memory used. 


INCR I FROM 0 TO grog Be - 100 
WSADDR C.1) = .ADR C.1); 


END 
BEGIN 
Strings - variable Length data 


OCAL 
SRC_PTR, 
WRD_PTR; 
' 
Ensure there's sufficient memory to accommodate this. 


XMEM (CHSALLOCATION (.SIZE) + 1); 


1 
Point to where data will be placed (at end of current segment). 
WSADDR = .NDXSGE; 


' 
Advance over allocated storage 


NDXSGE = .NDXSGE + (CHSALLOCATION (.s 


) + 1) *® ZUPVAL; 
NDXSGF eNDXSGF = (CHSALLOCATION ( + 1); 


E 
E) : 


= IZ 
= IZ 
' 


Set up string pointers 


SRC_PTR = 
WRD-PTR = 
i] 

Save length as the first fullword of string 


WSADDR C(O) = .SIZE; 
' 
Store the string 


iNCR I FROM 1 TO .SIZE DO 
CHSWCHAR_A (CHS$RCHAR_A (SRC_PTR), WRD_PTR); 


-ADR; 
CHS$PTR (WSADDR (1); i String starts after Ist 


SS ene 


3 AX=11 Bliss-32 V4.0-74 
1 RUNOFF .SRCJNDXDAT.BLI; 
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' Point past used memory. 
! Count off used memory. 


' ADR is a CHSPTR to strin 
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VOu~000 SAVDAT == Place data in working storage : 1228671382 99:35:78 RUNOFF SRE INDAOAT OL ¢, —— 8 
: 318 OB1s 2 END 
: 320 Spi ; ; 
: 21 0815 RETURN .WSADDR; 
; Sde 0816 1 END; 'End of SAVDAT 


OOFC 00000 -ENTRY SAVDAT, Save R2,R3,R4,R5,R6,R7 : 0700 

57 90000000y EF 9E 9000¢ MOVAB R ; 

56 000000006 EF 9E 00 MOVAB NDXSGF, R6 : 

55 000000006 EF 9 90019 MOVAB NDXSGE, R5 F 
53 08 AC DO 0001 MOVL DATASET, R3 + 0746 

20 13 0001B BEQL $ : 
53 DD 90010 PUSHL R3 : 0754 

67 01 FB OOO1F CALLS #1, XMEM ; 
52 65 00 00022 MOVL § NDXSGE, WSADDR + 0759 
75 9543 DE 000 MOVAL  @NDXSGECR3], NDXSGE + 0764 
66 53 C2 00029 SUBL2 3, NDXSGF + 0765 
50 01 CE 00 C MNEGL #1. I + 0768 

06 11 0002F BRB 2$ : 

6240 04 BC40 DO 00031 1$: MOVL  @ADREIJ, (WSADDR)CII : 

F6 50 53 F2 00037 2$: AOBLSS R3, I, {$ : 
36 11 0003B BRB + 0746 
53 oc AC 03 C1 0003D 3$ ADDL3 #3, SIZE, R3 : 0783 

53 04 6 00042 DIVL2 #4, R3 : 

54 01 A3 9E 00045 MOVAB 1(R3), R4 : 

54 DD 00049 PUSHL  R4 : 

67 01 FB 00048 CALLS #1, XMEM : 
52 65 DO O004E MOVL NDXSGE, WSADDR ; 0788 
75 9543 DE 00051 MOVAL @NDXSGECR3J, NDXSGE : 0793 

65 04 CO 00055 ADDL2 #4, NDXSGE ; 
be 54 C2 00058 SUBL2 4. NDXSGF : 0794 
53 04 AC DO 00058 MOVL ADR, SRC_PTR + 0799 
50 04 A2 9E 0005F MOVAB 4(R2), WRD PTR : 0800 
62 0C AC DO 00063 MOVL SIZE, (WSABDR) > 0805 
51 D4 00067 CLRL i : 0811 

03 11 00069 BRB $ : 

80 83 90 00068 4$: OvB (SRC_PTR)+ (WRD_PTR)+ 3 

F8 51 Oc ac F3 00066 5$: AOBLEQ SIZE. I, 4$ F 
50 52 DO 00073 6$: OVL WSADDR, RO > 0815 
04 00076 > 0816 


; Routine Size: 119 bytes, Routine Base: S$CODE$ + 005C 
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T = Index pool data manipulation routines 16-Sep-1984 90:37:38 AX-11 Bliss-32 V4.0-74 
Verify availability of dynamic memory 14-Sep-1984 13:07:1 RUNOFF .SRCJNDXDAT.BLI; 


ZSBTTL_ 'XMEM == Verify availability of dynamic memory' 
ROUTINE XMEM (AMOUNT) : NOVALUE = 


FUNCTIONAL DESCRIPTION: 
This routine verifies that the requested amount of memory is 
available. If not enough memory is available, it attempts to 
allocate more. If this fails, a fatal message is issued 
forcing program termination. 

FORMAL PARAMETERS: 
AMOUNT = Amount of memory desired 

IMPLICIT INPUTS: 


NDXSGE = End of current segment 
NDXSGF = Amount of free memory in current segment 


IMPLICIT OUTPUTS: 


NDXSGE = End of new segment if more memory is allocated 
NDXSGF = Amount of free memory if more is alloacted 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 

None 

BEGIN 

IF .NDXSGF LSS .AMOUNT 

THEN 
BEGIN 
! Not enough space in current segment, so get a new one. 
NDXSGE = XPOOL (NDXPOL, 1000); ! Try to get about 1k. 
IF .NDXSGE NEQ 0 
THEN | 


i The requested amount was available. 
Save size of segment 


NDXSGF = 1000 
ELSE 


: The requested amount could not be allocated (pool full) 


ZIF %BLISS (BLISS32) 


Ss 


0004 00000 XMEM: .WORD Save R2 
52 00000000G EF 9E 00002 MOVAB NDXSGF, R2 
04 AC 62 01 00009 CMPL NDXSGF, AMOUNT 
He 18 0000D BGEQ 
7 03E8 F 3C QOO0F MOVZWL #1000, =(SP) 
00000000G EF 9F 00014 PUSHAB NDXPOL 
Q00000000G_ EF Q2 FB QOOIA CALLS #2, XPOOL 
00000000G_ EF 50 0 BOSE MOVL RO, NDXSGE 
6 13 00028 BEQL 
62 03€8 F 3 Boose aye. #1000, NDXSGF 
000000006 8F DD 00080 1$: PUSHL #DSRINDEXS_INSVIRMEM 
000000006 00 01 FB 00036 CALLS #1, LIBSSTOP 
04 0003D 2$: RET 


; Routine Size: 62 bytes, Routine Base: S$CODE$ + 00D3 


XDAT NDXDAT = Index pool data manipulation routines 1§- -1984 00:57:3 AX-11 Bliss-32 V4.0-74 
VOs-000 XMEM == Verify Ovailabitity of dynamic memory 14- aa 90:35:35 RUNOFF .SRCJNDXDAT.BLI; 
: t 8 a XTHEN ! Signal error for BLISS32 
3 88 0 i: SIGNAL_STOP (INDEX$_INSVIRMEM) ; 

3 85 u 0878 XELSE ! Use $XPO_PUT_MSG otherwise 
: 387 Me 80 $XPO_PUT_MSG (SEVERITY = FATAL, 

; 388 U 8 1 STRING = ‘can''t extend index pool.'); 

; 389 U 8 

; 390 088 *FI 

: 393 0883 END 

; 338 bese END; 


roe is 


Sete Se Se Se Se Se Se Se Se Be Se Be Se 


0818 
0853 
0859 


0861 
0867 


0876 
0886 


sz 


NDXDAT 
v04-000 
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NDXDAT = Index pool data manipulation routines 16-Sep-1984 : 
: ; 1228e0- 138s 99: 


7 #§ AX=11 Bliss-32 V4.0-74 
NTRY == from working storage - 7:1 


RUNOFF .SRCJNDXDAT.BLI; 


<z 


57: 
07: 
ZSBTTL ‘GENTRY <== from working storage’ 

GLOBAL ROUTINE GENTRY (B_ROW, B_COL, NO_SUBX) = 

14 


'e4 
! FUNCTIONAL DESCRIPTION: 


H 1 ; 
. 1 -- 
° 1 ? 
e 1 ¢ 
; 400 3 13 : 
: rit + ! Get a data entry from the working storage space. ‘ 
; 40 B98 1 | FORMAL PARAMETERS: : 
3; 404 +944 1! ; 
: 405 897 1! BROW = bucket ROW ; 
: ret 898 1! B_ COL = bucket COLumn : 
; 40 899 1! NO_SUBX - If true, ignore sub-index while advancing : 
; 408 0900 1! : 
; 409 0901 1°! IMPLICIT INPUTS: : 
3 6411 0903 1! INDLVL = subindex level ‘ 
s tig 09046 1! LSTPTR = contains current position in List : 
; 4) 0905 1! : 
3 414 0906 1 ! IMPLICIT OUTPUTS: ; 
: 415 0907 1! : 
: 416 0908 1! INDLVL = indentation level : 
; 417 0909 1! LSTPTR = updated position in List. ; 
; 2i3 34h : LSTSTK = temporary stack for saving sub-index Lists : 
; 420 balg 1 ! ROUTINE VALUE: : 
5 62) 0915 1 ! COMPLETION CODES: : 
H $56 0914 1! : 
; 42 0915 1! TRUE - entry found DW a ; 
; 424 0916 1! FALSE = No more entries left in List : 
; 425 0917 1! : 
> 426 0918 1 ! SIDE EFFECTS: : 
: 427 0919 1! . 
: 428 0920 i! Each time called, the pointer is advanced along the chain of entries : 
; $$3 0921 1! in the List. : 
; 430 $358 7 : 
3 (431 09 1 !-- ; 
; $38 base 1 : 
3; 43 0925 BEGIN . 
> 434 bass ; 
3; 436 0928 L_PTR : REF $XE_BLOCK; : 
: 637 0929 : 
; 438 093¢ IF .LSTPTR EQL 0 : 
; 439 0931 THEN : 
3; 440 O33 BEGIN : 
3 (441 93 : 

: rr boxe Head of List processing 

; uae 338 LSTPTR = .BUCKET C.B_ROW, .B_COL); 

: 446 938 IF .LSTPTR CXESA_TEXT] EQL O THEN RETURN FALSE; 

: 447 939 

3; 448 940 ELSE 

; 449 941 BEGIN 

: 450 nee : 

; «451 94 ! Processing for all other List elements 


Check for end of List 
if gt-PTR CXESA_NEXT] NEQ 0 


LSTPTR = .L_PTR CXESA_NEXT) 
ELSE 
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NDXDAT NDXDAT = Index pool data manipulation routines 16- $ep-1984 AX-11 Bliss-32 V4.0-74 Page 26 
v04-000 GENTRY == from Corking storege Sep-i9 4 99:3 73 RUNOFF .SRCJNDXDAT.BLI; . BS 
: 452 944 | 
: 4 945 L_PTR = .LSTPTR; | 
: 454 946 | 
gs $655 94 ' 
; : $ ate Look for a sub-List entry | 
; 458 950 4 IF (.L_PTR CXESA_SUBX] NEQ 0) AND (NOT .NO_SUBX) 
; 459 951 3 THEN 
; 460 926 4 BEGIN 
; 461 953 4 IF .INDLVL LSS MAXLST 
: 46 0954 4 THEN 
: 46 B32? BEGIN 
: 464 9 § ' 
: ree 3444 Remember where we left off by placing top of sub-list on the stack 
; 467 8328 LSTSTK C.INDLVL] = .LSTPTR; 
; 468 960 5 
: 469 0961 5 ! 
: 470 0962 5 ! Point to sub-List 
: 471 0963 5 ! 
: 47 0964 5 LSTPTR = .L_PTR CXESA_SUBX]; 
: 47 0965 5 
> «44746 0966 5 ! 
3; 475 0967 5 ' Keep track of indentation level 
: 476 0968 2 ! 
3; 477 0969 INDLVL = .INDLVL + 1; 
: 478 0970 5 
3; 479 0971 5 RETURN TRUE; 
; 480 0972 5 END 
; 481 0973 4 ELSE 
; 48 0974 2 BEGIN 
: 48 0975 ! 
3 0976 5 ! Index entry is too deep 
3; 485 0977 5 ! 
; 0978 5 
: 487 L 0979 5 ZIF XBLISS (BLISS32) 
; 488 0980 5 XTHEN ! Signal error for BLISS32 
: 489 0981 5 
; 490 0982 5 SIGNAL (CINDEX$_TOODEEP); 
; 491 098 2 
; rt 2 34 ZELSE ! Use $XPO_PUT_MSG otherwise 
: rh 7 34743 ; $XPO_PUT_MSG (SEVERITY = WARNING, STRING = ‘Maximum subindex depth exceeded"); 
; 496 03 8 XFI 
3; 497 989 
; 498 0990 5 ENTMSG (); ! Dump entry 
: 499 0991 4 END; 
: 99 : END; 


SESsSSSSy 
Siscranss 
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NDXDAT NDXDAT = Index pool data manipulation routines 16-Sep-1984 AX-11 Bliss-32 V4.0-74 P , 
v04-0 GENTRY == from vorking storage 14- =Sep- 1984 99:35 73 RUNOFF .SR REINDKDAT: BLI; ste (Bs | 

§ RETURN FALSE; 

! 

" Look out for entries on a sub-List 

0 IF_.LSTPTR CXESA_NEXT] EQL 0 

0 THEN 

: BEGIN 


See if we need to unstack a sub-List 
if .INDLVL EQL 0 
THEN | 


DVD IVP IV LV DV IUPUI SUSU VSVSVSVSUSVSIS VSS ISIS ISIS 
DONO UESWN (“OO ODODNOUESWN "ODO ODNOULSWNH—O”D S 


SSS aS HH 3 4 23D 
IIIS DMI BB BB PEE EE PWIA 


1 

1 

1 

1 

14 ' 

: } Nothing to unstack, quit 

1 RETURN FALSE 

1 ELS 

19 BEGIN 

$6 INDLVL = .INDLVL 
4 LSTPTR = STS TK C. thou VLI; 

RETURN GENTRY (.B ROW, .B_ COL, TRUE); 

; END; 

29 END; 

3 


RETURN TRUE; 
END; ‘End of GENTRY 
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52 1 1$: MOVL L PTR 


L_PTR) 


SUBX, o. 


C oc aC 
LN R, 


$5 f 
000000006 8F ? 
6540 


80 
ts 
6 
4$ 
BRB 5$ 
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git 
$~ 
NO 
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Unstack branch of tree 
MOVL oF LSTSTKCRO) 
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NDXDAT = Index pool data manipulation routines 18-5¢ -1984 00:57: AX-11 Bliss-32 V4.0-74 P | 
GENTRY == from Corking storage 1 ~3ep-19 4 99:35:75 RUNOFF .SRCJNDXDAT.BLI; ses Be 
63 08 A2 D0 ; MOVL 8(L_PTR), LSTPTR 3; 0964 
i me Gop INCL fyb : $989 
000000006 F ODD 5B 2$: PUSHL #DSRINDEX$_TOODEEP : 0982 
800000006 00 1 FB 61 CALLS #1, LIBSSIGNAL : 
0000000G_ EF F 808 CALLS #0, ENTMSG 3; 0990 
04 ; 9 B09 3$ bio te 3; 0997 
63 04 Ae DO 00074 MOVL 4(L_PTR), LSTPTR + 0999 
50 63 DO 00078 MOVL  LSTPTR, RO > 1006 
04 AO D 0078 TSTL 4(RO) : 
19 1 443 BNEQ 4$ 3 
64 D 8 TSTL tie ; 1012 
19 1 0082 BEQL $ g 
64 D itn DECL INDLV : 1023 
39 64 DO 00086 MOVL INDLVL af : 1024 
6 6540 D0 0089 MOVL LSTSTKCROJ, LSTPTR : 
01 bp 08D PUSHL #1 : 1025 
7E 04 Ag D 0008F MOVQ B_ROW, -(SP) : 
FF68 «CF 03 FB 00093 CALLS #3, GENTRY : 
04 00098 RET 3; 1019 
50 01 00 00099 4$ MOVL #1, RO : 1030 
04 0009C RET 3 
50 04 00090 5$ CLRL RO : 1031 
04 0009F RET 3 
; Routine Size: 160 bytes, Routine Base: S$CODE$ + 0111 
; 540 1934 1 
> «541 1033 1 END ' End of module 
3; 542 1034 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
3 PSECT SUMMARY | 
: Name Bytes Attributes 
: SCODES 433 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Symbols Pages 
File Total Loaded Percent Mapped 
~$255$DUA28: CSYSLIBIXPORT.L32;1 590 29 4 252 00:00.1 


Processing 
Time 


<z 


Ito 


; Size 
; Run "ttes 


; Elaps 


; Lexemes/CPU-Min: 4 
; Memor 
; Compi 


: Lines/CP 
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GENTRY == from working storage >} 38 99: 89; § RUNOFF SRE NBRDAT: gLtst 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NDXDAT/OBJ=OBJ$:NDXDA* MSRC$:NDXDAT/UPDATE=(ENH$:NDXDAT) 
433 code + 0 data bytes 


ed Tees ei ‘ 
U Min: 744 
955 


Used: 100 pages 
ation Complete 
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AH-BT13A-SE 
VAX/VMS_V4.0 


TA 
ID 


DIGI aR 
CONF = 


0343 


